home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / oct90.arc / TIP582.LSP < prev    next >
Text File  |  1990-11-01  |  556b  |  23 lines
  1. ;TIP582.LSP   Identify Elenents   (c)1990, Steve Kirk
  2. (defun c:rad (/ A B C D E)
  3.   (graphscr)
  4.   (setq A (entsel
  5.     "\nChoose Entity: radius is "))
  6.   (setq B (car A)) ;entity list
  7.   (setq C (entget B)) ;extract
  8.   (setq D (assoc 40 C)) ;isolate radius
  9.   (setq E (cdr D)) ;return radius value
  10.   (prompt (rtos E))(prin1) ;print radius
  11. )
  12. (defun c:lay (/ A B C D E)
  13.   (graphscr)
  14.   (setq A (entsel
  15.     "\nChoose Entity: layer is "))
  16.   (setq B (car A))
  17.   (setq C (entget B))
  18.   (setq D (assoc 8 C))
  19.   (setq E (cdr D))
  20.   (prompt E)(prin1)
  21. )
  22.  
  23.